home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol024 / roulette.bas < prev    next >
Encoding:
BASIC Source File  |  1987-01-11  |  2.3 KB  |  99 lines
  1. 10 KEY OFF
  2. 20 CLS
  3. 30 PRINT TAB(30);"ROULETTE"
  4. 40 PRINT
  5. 50 PRINT "CHOOSE A NUMBER FROM THE FOLLOWING:":RANDOMIZE
  6. 60 PRINT
  7. 70 INPUT "NUMBER OF PLAYERS";N
  8. 80 PRINT
  9. 90 DIM A(5),B(5),C(5):'AT MOST 5 PLAYERS
  10. 100 REM   30-60 ALLOW PLAYERS TO BUY CHIPS
  11. 110 FOR J=1 TO N:'FOR EACH OF THE PLAYERS
  12. 120 PRINT "PLAYER";J
  13. 130 PRINT
  14. 140 INPUT "HOW MANY CHIPS";A(J)
  15. 150 PRINT
  16. 160 NEXT J
  17. 170 PRINT
  18. 180 PRINT "LADIES AND GENTLEMEN! PLACE YOUR BETS PLEASE!"
  19. 190 FOR J=1 TO N:'FOR EACH OF THE PLAYERS
  20. 200 PRINT
  21. 210 PRINT "PLAYER";J
  22. 220 PRINT
  23. 230 PRINT "BET TYPE: 1=NUMBER BET (1 TO 34), 2=EVEN, 3=ODD"
  24. 240 PRINT
  25. 250 INPUT "BET TYPE (1,2,OR 3)";D(J)
  26. 260 IF D(J)=1 THEN 310 ELSE 270
  27. 270 PRINT
  28. 280 INPUT "AMOUNT";C(J)
  29. 290 PRINT
  30. 300 GOTO 330
  31. 310 PRINT
  32. 320 INPUT "NUMBER, AMOUNT";B(J),C(J):'INPUT BET
  33. 330 NEXT J
  34. 340 X=INT(34*RND+1):'SPIN THE WHEEL
  35. 350 REM    210-300 DISPLAY THE WINNING NUMBER
  36. 360 CLS
  37. 370 LOCATE  5,10:PRINT "THE WINNING NUMBER IS";X
  38. 380 PRINT
  39. 390 REM    310-330:'DETERMINE WINNINGS AND LOSSES
  40. 400 FOR J=1 TO N:'FOR EACH PLAYER
  41. 410 IF D(J)=1 THEN GOSUB 600
  42. 420 IF D(J)=2 THEN GOSUB 690
  43. 430 IF D(J)=3 THEN GOSUB 800
  44. 440 NEXT J
  45. 450 PRINT
  46. 451 PRINT
  47. 460 PRINT "PLAYERS' CURRENT BANKROLLS:"
  48. 470 PRINT
  49. 480 PRINT "PLAYER","CHIPS LEFT"
  50. 490 PRINT
  51. 500 FOR J=1 TO N
  52. 510 PRINT J,A(J)
  53. 520 NEXT J
  54. 530 PRINT
  55. 540 INPUT "DO YOU WISH TO PLAY ANOTHER ROLL(Y/N)";R$
  56. 550 CLS
  57. 560 IF R$="Y" OR R$="y" THEN 180
  58. 570 PRINT
  59. 580 PRINT "THE CASINO IS CLOSED. SORRY!"
  60. 590 END
  61. 600 IF B(J)=X THEN 650 ELSE 610
  62. 610 PRINT
  63. 620 PRINT "PLAYER";J;"LOSES"
  64. 630 A(J)=A(J)-C(J)
  65. 640 RETURN
  66. 650 PRINT
  67. 660 PRINT "PLAYER";J;"WINS";32*C(J);"DOLLARS"
  68. 670 A(J)=A(J)+32*C(J)
  69. 680 RETURN
  70. 690 K=0
  71. 700 IF X=2*K THEN 760 ELSE 710
  72. 710 K=K+1:IF K>16 THEN 720 ELSE 700
  73. 720 PRINT
  74. 730 PRINT "PLAYER";J;"LOSES"
  75. 740 A(J)=A(J)-C(J)
  76. 750 RETURN
  77. 760 PRINT
  78. 770 PRINT "PLAYER";J;"WINS";C(J);"DOLLARS"
  79. 780 A(J)=A(J)+C(J)
  80. 790 RETURN
  81. 800 K=0
  82. 810 IF X=2*K+1 THEN 870 ELSE 820
  83. 820 K=K+1:IF K>=16 THEN 830 ELSE 810
  84. 830 PRINT
  85. 840 PRINT "PLAYER";J;"LOSES"
  86. 850 A(J)=A(J)-C(J)
  87. 860 RETURN
  88. 870 PRINT
  89. 880 PRINT "PLAYER";J;"WINS";C(J);"DOLLARS"
  90. 890 A(J)=A(J)+C(J)
  91. 900 RETURN
  92. 999 END
  93. 50 A(J)=A(J)-C(J)
  94. 860 RETURN
  95. 870 PRINT
  96. 880 PRINT "PLAYER";J;"WINS";C(J);"DOLLARS"
  97. 890 A(J)=A(J)+C(J)
  98. 900 RETURN
  99.